library("fastLink")
matches.out <- fastLink( dfA = subset.1, dfB = subset.2,
						 varnames = c("first_name", "last_name", 
						              "middle_initial", "age"
						              ),
						 stringdist.match = c("first_name", "last_name"),
						 numeric.match = c("age"),
						 partial.match = c("first_name", "last_name", 
										   "age"),
						 cut.a = 0.94,
						 cut.p = 0.85,
						 cut.a.num = 0.5,
						 cut.p.num = 1
					   )